﻿Public Class frmNuevoContacto

    Dim idCliente As String = Nothing
    Dim dsCaser As caserDataSet
    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Me.Close()
    End Sub

    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        If ValidarDatos() Then

            dsCaser.contacto.AddcontactoRow(cmbTipo.SelectedItem, txtCampaña.Text, cmbResultado.SelectedItem, txtObservaciones.Text, cmbContacto.SelectedItem, idCliente, dtpFecha.Value, Principal.rowlogin.id)
            Dim sError As String = ""

            sError = GuardarTabla(dsCaser.contacto)

            If sError <> "" Then
                MessageBox.Show(sError, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
            Else
                If cmbResultado.SelectedIndex = 0 Or cmbResultado.SelectedIndex = 2 Or cmbResultado.SelectedIndex = 3 Then
                    Dim frm As frmNuevaNotificación
                    Dim lista(2) As Object
                    lista = New Object(2) {}



                    frm = New frmNuevaNotificación
                    lista(0) = SQL_MaxCodContacto()
                    lista(1) = txtObservaciones.Text
                    frm.Tag = lista
                    frm.ShowDialog()
                    Principal.contarNotificaciones()

                End If
                Me.Close()
            End If

        End If
    End Sub

    Private Sub frmNuevoContacto_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

    End Sub

    Private Sub frmNuevoContacto_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cmbContacto.SelectedIndex = 0
        cmbResultado.SelectedIndex = 0
        cmbTipo.SelectedIndex = 0
        idCliente = Me.Tag
        dsCaser = New caserDataSet
    End Sub

    Private Function ValidarDatos() As Boolean
        Dim valido = True
        Dim sError = ""
        If idCliente = Nothing Then
            valido = False
            sError = "Seleccione un cliente" & vbCrLf
        End If
       

        If sError <> "" Then
            MessageBox.Show(sError, "Datos Incorrectos", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
        ' Compruebo si el formato de la dirección es correcto.
        Return valido
    End Function

End Class